exception InvalidFormat
val errord : string -> unit -> unit
val badFile : unit -> unit
val badEntry : unit -> unit
class light_widget :
  (float -> 'a) ->
  (unit -> (float * float * float) * (float * float * float)) ->
  ((float * float * float) * (float * float * float) -> 'b) ->
  unit ->
  object
    val store : GTree.list_store
    method activate_view :
      GTree.view -> Gtk.tree_path -> GTree.view_column -> unit
    method add_new_pos : unit -> unit
    method add_row :
      string * ((float * float * float) * (float * float * float)) -> unit
    method create_view :
      model:GTree.list_store ->
      packing:(GObj.widget -> unit) -> unit -> GTree.view
    method file_choose :
      (string -> unit) ->
      string -> GtkEnums.file_chooser_action -> GtkStock.id -> unit -> unit
    method from_file : string -> unit
    method get_box : unit -> GPack.box
    method init : unit -> GtkSignal.id
    method remove_current_row :
      GTree.model -> GTree.selection -> unit -> unit
    method to_file : string -> unit
  end
val get_lightings_widgets_contener :
  (float -> 'a) ->
  (unit -> (float * float * float) * (float * float * float)) ->
  ((float * float * float) * (float * float * float) -> 'b) ->
  unit -> GPack.box
class option_widget :
  float ->
  float ->
  float ->
  (float -> float -> float -> unit -> unit) ->
  unit ->
  object
    method get_box : unit -> GPack.box
    method init : unit -> GtkSignal.id
  end
val get_generaldatas_widgets_contener :
  float ->
  float ->
  float -> (float -> float -> float -> unit -> unit) -> unit -> GPack.box
exception ErrorList
class color_widget :
  string ->
  (((int * int * int) * float) list -> unit -> unit) ->
  unit ->
  object
    method choosealt : string -> unit -> unit
    method convert_parse : int -> string array -> string list -> unit
    method equal : (int * int * int) list -> (int * int * int) list -> bool
    method extract_entries :
      (GEdit.entry * int * int * int) list ->
      ((int * int * int) * float) list
    method get_box : unit -> GPack.box
    method get_colorlist :
      ((int * int * int) * float) list -> (int * int * int) list
    method get_valuelist : ((int * int * int) * float) list -> float list
    method init : string -> unit
    method init_table : (int * int * int) array -> float list -> unit
    method open_colors : ((int * int * int) * float) list -> unit
    method parse_values : string -> ((int * int * int) * float) list
    method sort_entry :
      GEdit.entry * int * int * int -> GEdit.entry * int * int * int -> int
    method write_entries : (GEdit.entry * int * int * int) list -> unit
  end
val get_colorselect_widgets_contener :
  string -> (((int * int * int) * float) list -> unit -> unit) -> GPack.box
class big_color_widget :
  (float -> float -> float -> unit) ->
  string ->
  object
    val mutable boolcallback : bool
    method choosealt : unit -> unit
    method convert_parse : int -> string array -> string list -> unit
    method get_box : unit -> GPack.box
    method get_colorlist :
      ((int * int * int) * float) list -> Sdlvideo.color list
    method get_valuelist : ((int * int * int) * float) list -> float list
    method init : unit -> unit
    method init_table : Sdlvideo.color array -> float list -> unit
    method open_colors :
      string -> int array array * (int, float * float * float) Hashtbl.t
    method parse_values : string -> ((int * int * int) * float) list
    method sort_entry :
      GEdit.entry * int * int * int -> GEdit.entry * int * int * int -> int
    method write_entries : (GEdit.entry * int * int * int) list -> unit
  end
val get_bigcolorselect :
  (float -> float -> float -> unit) ->
  string ->
  string ->
  GPack.box * int array array * (int, float * float * float) Hashtbl.t
